home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 50
/
Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso
/
Aminet
/
util
/
wb
/
BWS_Scalos.lha
/
BWS_Scalos
/
Scalos_Rename
/
Install
next >
Wrap
Text File
|
2002-05-21
|
3KB
|
172 lines
; Script created by Bruce Steers bsteers@ukonline.co.uk
(set ver "$VER: Install_Scalos_Rename 40.9 (06.12.2001)")
(set verN "40.9")
(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
; getversion of existing module
(set vernum (getversion "Scalos:modules/rename.module"))
(set oldverV (/ vernum 65536))
(set oldverR (- vernum (* ver 65536) ) )
(set oldver (cat oldverV"."oldverR))
(set srcdir (pathonly @icon))
(set origmod "Scalos:modules/V39_Rename.module")
(set newmod "Scalos:modules/Rename.module")
(welcome "\nWelcome to the Scalos_Rename "verN" Install Script\nThis will Update your Rename.module")
(set @default-dest "Scalos:modules")
(complete 20)
(if (exists origmod (noreq))
((set instype
(askbool
(prompt "\n\nwould you like to install the New Rename.module\n\nOr Revert back to the original one?")
(choices "Install New" "Revert to Original")
(help @default-askbool)
)
))
(set instype 1)
)
(if (= instype 1)
(
(if (= oldverV 39)
(if
(askbool
(prompt "\n\nBackUp Original V39 Rename.module\n\nRename your Existing Rename.module\nas V39_Rename.module")
(help @default-askbool)
)
(
(if (exists origmod (noreq))
(delete origmod (optional "force") (infos))
)
(rename newmod origmod)
)
)
)
(copyfiles
(source "Rename.module")
(dest @default-dest)
(infos)
)
(set prefsdest "Scalos:Prefs/Modules")
(if (not (exists prefsdest) )
(
(makedir prefsdest (infos))
)
(
(set oldpref (tackon prefsdest "Rename.module.prefs"))
(if (exists oldpref)
(delete oldpref
(optional "force")
(infos)
)
)
)
)
(copyfiles
(source "Rename.prefs")
(dest prefsdest)
(infos)
)
(set ofgpref "ENVARC:Scalos/Rename.prefs")
(set cfgpref "ENVARC:Scalos/Rename.ini")
(if (exists ofgpref)
(if (exists cfgpref)
(delete ofgpref
(optional "force")
)
(rename ofgpref cfgpref)
)
)
(complete 50)
(copyfiles
(source "Scalos_Rename.guide")
(dest "Scalos:Docs")
(prompt "Install Scalos_Rename.guide ?")
(help @copyfiles-help)
(confirm)
(infos)
)
(complete 60)
(copylib
(source "/libs/BetterString.mcc")
(dest "Mui:libs/mui")
(prompt "Install BetterString.mcc ?")
(help @copylib-help)
(confirm)
(infos)
)
(complete 70)
(copylib
(source "/libs/BetterString.mcp")
(dest "Mui:Libs/mui")
(prompt "Install BetterString.mcp ?")
(help @copylib-help)
(confirm)
(infos)
)
(complete 80)
(copylib
(source "/libs/amigaini.library")
(dest "libs:")
(prompt "Install amigaini.library ?")
(help @copylib-help)
(confirm)
(infos)
)
(complete 90)
(set @default-dest "Scalos:")
(complete 100)
(exit "\n\n" @app-name " Installaton is now over.\n\nPlease Read the Docs to understand how to use Scalos_Rename "verN)
)
(
(if (exists newmod)
(delete newmod (optional "force") (infos))
)
(rename origmod newmod)
(set guide "Scalos:Docs/Scalos_Rename.guide")
(if (exists guide)
(delete guide (optional "force") (infos))
)
(set @default-dest "Scalos:")
(complete 100)
(exit "\n\n" @app-name " has been restored back to version 39.x")
)
)